home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (68k).sea / pro Fit 5.0 demo (68k) / Examples / Programming - intro / FindMaximumAndMinimum / FindMaximumAndMinimum
Encoding:
Text File  |  1996-04-15  |  873 b   |  38 lines  |  [ftFC/NLft]
  1. {
  2. this program finds the maximum and minimum
  3. values in the current selection in the current data
  4. window and writes them to the result window
  5.  
  6. To run the program, click the button "Add", then choose
  7. the program "DataTest" from the menu "Misc".
  8. }
  9.  
  10. program Findmaximum;
  11. var
  12.   r,c:integer;max,min:extended;
  13.   maxR,maxC,minR,minC:integer;
  14.  
  15.  
  16. begin
  17.   max:=-inf;min:=inf;
  18.   for c:=SelectLeft to SelectRight do
  19.   begin
  20.        for r:=SelectTop to SelectBottom do
  21.         if RowSelected(r) then
  22.         begin
  23.                if dataok(r,c) then
  24.                begin 
  25.                     if data[r,c]>max then
  26.                        begin
  27.                             maxR:=r;maxC:=c;    max:=data[maxR,maxC];
  28.                        end;
  29.                        if data[r,c]<min then
  30.                        begin
  31.                             minR:=r;minC:=c;    min:=data[minR,minC];
  32.                        end
  33.                end
  34.            end
  35.   end;
  36.   Writeln('max is ',max,' at (',maxR,',',maxC,')');
  37.   Writeln('min is ',min,' at (',minR,',',MinC,')');
  38. end;